MacWorld 1997 September

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (68k).sea / pro Fit 5.0 demo (68k) / External Modules / External modules sources / C / readSelection.c < prev
MacBinary | 1996-06-01 | 7.0 KB | [TEXT/KAHL]
view JSON data |
view as text |
open on a Mac |
open on a PC

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: readSelection.c
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Jun 1 16:21:29 1996, modified Sat Jun 1 16:21:29 1996, creator Think C, type ASCII, 6498 bytes "readSelection.c" , at 0x19e2 410 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 72 65 61 64 53 65 | 6c 65 63 74 69 6f 6e 2e |..readSe|lection.|
|00000010| 63 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 19 62 00 | 00 01 9a ad d6 56 c9 ad |......b.|.....V..|
|00000060| d6 56 c9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.V......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d5 d0 00 00 |........|........|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2f 0d 2f 2a 20 72 65 61 |********|/./* rea|
|000000e0| 64 53 65 6c 65 63 74 69 | 6f 6e 2e 63 20 20 20 20 |dSelecti|on.c    |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000120| 20 20 20 20 20 20 20 20 | 09 20 20 20 20 20 20 20 |        |.       |
|00000130| 2a 2f 0d 2f 2a 20 20 20 | 20 20 20 20 20 20 20 20 |*/./*   |        |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 2a 2f 0d 2f 2a 20 |        |  */./* |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001e0| 20 20 20 20 2a 2f 0d 2f | 2a 20 56 65 72 73 69 6f |    */./|* Versio|
|000001f0| 6e 20 31 2e 36 2e 31 39 | 39 35 20 20 09 20 20 20 |n 1.6.19|95  .   |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2f 0d 2f |        |    */./|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2f | 0d 0d 0d 23 69 6e 63 6c |*******/|...#incl|
|000002a0| 75 64 65 20 22 70 72 6f | 46 69 74 5f 69 6e 74 65 |ude "pro|Fit_inte|
|000002b0| 72 66 61 63 65 2e 68 22 | 20 0d 23 69 66 6e 64 65 |rface.h"| .#ifnde|
|000002c0| 66 20 5f 53 50 45 45 43 | 48 5f 0d 09 23 69 6e 63 |f _SPEEC|H_..#inc|
|000002d0| 6c 75 64 65 20 3c 53 70 | 65 65 63 68 2e 68 3e 0d |lude <Sp|eech.h>.|
|000002e0| 23 65 6e 64 69 66 0d 23 | 69 66 6e 64 65 66 20 5f |#endif.#|ifndef _|
|000002f0| 5f 47 45 53 54 41 4c 54 | 45 51 55 5f 5f 0d 09 23 |_GESTALT|EQU__..#|
|00000300| 69 6e 63 6c 75 64 65 20 | 3c 47 65 73 74 61 6c 74 |include |<Gestalt|
|00000310| 45 71 75 2e 68 3e 0d 23 | 65 6e 64 69 66 0d 0d 23 |Equ.h>.#|endif..#|
|00000320| 69 6e 63 6c 75 64 65 20 | 3c 73 74 72 69 6e 67 2e |include |<string.|
|00000330| 68 3e 0d 0d 0d 73 74 61 | 74 69 63 20 64 6f 75 62 |h>...sta|tic doub|
|00000340| 6c 65 20 64 61 62 73 28 | 64 6f 75 62 6c 65 20 78 |le dabs(|double x|
|00000350| 29 20 7b 72 65 74 75 72 | 6e 20 78 3c 30 20 3f 20 |) {retur|n x<0 ? |
|00000360| 2d 78 3a 78 3b 7d 0d 0d | 0d 73 74 61 74 69 63 20 |-x:x;}..|.static |
|00000370| 42 6f 6f 6c 65 61 6e 20 | 53 70 65 65 63 68 41 76 |Boolean |SpeechAv|
|00000380| 61 69 6c 61 62 6c 65 20 | 28 76 6f 69 64 29 20 7b |ailable |(void) {|
|00000390| 0d 09 4f 53 45 72 72 09 | 09 09 65 72 72 3b 0d 09 |..OSErr.|..err;..|
|000003a0| 6c 6f 6e 67 09 09 09 72 | 65 73 75 6c 74 3b 0d 09 |long...r|esult;..|
|000003b0| 65 72 72 20 3d 20 47 65 | 73 74 61 6c 74 28 67 65 |err = Ge|stalt(ge|
|000003c0| 73 74 61 6c 74 53 70 65 | 65 63 68 41 74 74 72 2c |staltSpe|echAttr,|
|000003d0| 20 26 72 65 73 75 6c 74 | 29 3b 0d 09 69 66 20 28 | &result|);..if (|
|000003e0| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 20 7c |(err != |noErr) ||
|000003f0| 7c 20 21 28 72 65 73 75 | 6c 74 20 26 20 20 28 31 || !(resu|lt &  (1|
|00000400| 20 3c 3c 20 67 65 73 74 | 61 6c 74 53 70 65 65 63 | << gest|altSpeec|
|00000410| 68 4d 67 72 50 72 65 73 | 65 6e 74 29 29 29 0d 09 |hMgrPres|ent)))..|
|00000420| 09 72 65 74 75 72 6e 20 | 46 41 4c 53 45 3b 0d 09 |.return |FALSE;..|
|00000430| 65 6c 73 65 0d 09 09 72 | 65 74 75 72 6e 20 54 52 |else...r|eturn TR|
|00000440| 55 45 3b 0d 7d 0d 20 0d | 76 6f 69 64 20 53 65 74 |UE;.}. .|void Set|
|00000450| 55 70 20 28 09 73 68 6f | 72 74 2a 20 63 6f 6e 73 |Up (.sho|rt* cons|
|00000460| 74 20 6d 6f 64 75 6c 65 | 4b 69 6e 64 2c 09 09 2f |t module|Kind,../|
|00000470| 2a 20 73 65 74 20 6d 6f | 64 75 6c 65 4b 69 6e 64 |* set mo|duleKind|
|00000480| 20 74 6f 20 69 73 46 75 | 6e 63 74 69 6f 6e 20 6f | to isFu|nction o|
|00000490| 72 20 69 73 50 72 6f 67 | 72 61 6d 20 2a 2f 0d 09 |r isProg|ram */..|
|000004a0| 09 09 09 53 74 72 32 35 | 35 20 6e 61 6d 65 2c 09 |...Str25|5 name,.|
|000004b0| 09 09 09 09 2f 2a 20 74 | 68 65 20 6e 61 6d 65 20 |..../* t|he name |
|000004c0| 6f 66 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 6f |of the p|rogram o|
|000004d0| 72 20 66 75 6e 63 74 69 | 6f 6e 20 28 70 61 73 63 |r functi|on (pasc|
|000004e0| 61 6c 20 73 74 72 69 6e | 67 29 20 2a 2f 0d 09 09 |al strin|g) */...|
|000004f0| 09 09 6c 6f 6e 67 2a 20 | 63 6f 6e 73 74 20 72 65 |..long* |const re|
|00000500| 71 75 69 72 65 64 47 6c | 6f 62 61 6c 73 2c 09 2f |quiredGl|obals,./|
|00000510| 2a 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |* the nu|mber of |
|00000520| 62 79 74 65 73 20 74 6f | 20 62 65 20 61 6c 6c 6f |bytes to| be allo|
|00000530| 63 61 74 65 64 20 69 6e | 20 45 78 74 4d 6f 64 75 |cated in| ExtModu|
|00000540| 6c 65 73 50 61 72 61 6d | 42 6c 6f 63 6b 2e 67 6c |lesParam|Block.gl|
|00000550| 6f 62 61 6c 73 20 2a 2f | 0d 09 09 09 09 09 09 09 |obals */|........|
|00000560| 09 09 09 09 09 2f 2a 20 | 73 65 74 20 72 65 71 75 |...../* |set requ|
|00000570| 69 72 65 64 47 6c 6f 62 | 61 6c 73 20 74 6f 20 30 |iredGlob|als to 0|
|00000580| 20 69 66 20 79 6f 75 20 | 64 6f 6e 27 74 20 75 73 | if you |don't us|
|00000590| 65 20 74 68 69 73 20 66 | 65 61 74 75 72 65 20 2a |e this f|eature *|
|000005a0| 2f 0d 09 09 09 09 45 78 | 74 4d 6f 64 75 6c 65 73 |/.....Ex|tModules|
|000005b0| 50 61 72 61 6d 42 6c 6f | 63 6b 2a 20 70 62 29 09 |ParamBlo|ck* pb).|
|000005c0| 09 2f 2a 20 74 68 65 20 | 63 6f 6d 70 6c 65 74 65 |./* the |complete|
|000005d0| 20 70 61 72 61 6d 65 74 | 65 72 20 62 6c 6f 63 6b | paramet|er block|
|000005e0| 20 70 61 73 73 65 64 20 | 62 79 20 70 72 6f 20 46 | passed |by pro F|
|000005f0| 69 74 20 74 6f 20 74 68 | 65 20 2a 2f 0d 09 09 09 |it to th|e */....|
|00000600| 09 09 09 09 09 09 09 09 | 09 2f 2a 20 72 6f 75 74 |........|./* rout|
|00000610| 69 6e 65 73 20 64 65 66 | 69 6e 65 64 20 69 6e 20 |ines def|ined in |
|00000620| 74 68 69 73 20 66 69 6c | 65 2e 20 49 6e 20 6d 6f |this fil|e. In mo|
|00000630| 73 74 20 63 61 73 65 73 | 20 69 74 20 63 61 6e 20 |st cases| it can |
|00000640| 62 65 20 69 67 6e 6f 72 | 65 64 20 2a 2f 0d 2f 2a |be ignor|ed */./*|
|00000650| 20 53 65 74 55 70 20 69 | 73 20 63 61 6c 6c 65 64 | SetUp i|s called|
|00000660| 20 6f 6e 63 65 20 77 68 | 65 6e 20 74 68 65 20 65 | once wh|en the e|
|00000670| 78 74 65 72 6e 61 6c 20 | 6d 6f 64 75 6c 65 20 69 |xternal |module i|
|00000680| 73 20 6c 69 6e 6b 65 64 | 20 74 6f 20 70 72 6f 46 |s linked| to proF|
|00000690| 69 74 20 2a 2f 0d 7b 0d | 09 2a 6d 6f 64 75 6c 65 |it */.{.|.*module|
|000006a0| 4b 69 6e 64 3d 69 73 50 | 72 6f 67 72 61 6d 3b 09 |Kind=isP|rogram;.|
|000006b0| 09 09 09 09 09 2f 2a 20 | 77 65 20 64 65 66 69 6e |...../* |we defin|
|000006c0| 65 20 61 20 70 72 6f 67 | 72 61 6d 20 2a 2f 0d 09 |e a prog|ram */..|
|000006d0| 53 65 74 50 61 73 63 61 | 6c 53 74 72 28 6e 61 6d |SetPasca|lStr(nam|
|000006e0| 65 2c 22 5c 70 52 65 61 | 64 20 53 65 6c 65 63 74 |e,"\pRea|d Select|
|000006f0| 69 6f 6e 22 2c 32 35 35 | 29 3b 09 2f 2a 20 69 74 |ion",255|);./* it|
|00000700| 73 20 6e 61 6d 65 20 2a | 2f 0d 09 2a 72 65 71 75 |s name *|/..*requ|
|00000710| 69 72 65 64 47 6c 6f 62 | 61 6c 73 20 3d 20 30 3b |iredGlob|als = 0;|
|00000720| 09 09 09 09 09 09 2f 2a | 20 77 65 20 64 6f 6e 27 |....../*| we don'|
|00000730| 74 20 6e 65 65 64 20 67 | 6c 6f 62 61 6c 20 64 61 |t need g|lobal da|
|00000740| 74 61 20 2a 2f 0d 7d 0d | 0d 0d 76 6f 69 64 20 49 |ta */.}.|..void I|
|00000750| 6e 69 74 69 61 6c 69 7a | 65 50 72 6f 67 20 28 45 |nitializ|eProg (E|
|00000760| 78 74 4d 6f 64 75 6c 65 | 73 50 61 72 61 6d 42 6c |xtModule|sParamBl|
|00000770| 6f 63 6b 2a 20 70 62 29 | 0d 09 2f 2a 20 43 61 6e |ock* pb)|../* Can|
|00000780| 20 62 65 20 6c 65 66 74 | 20 65 6d 74 70 79 20 69 | be left| emtpy i|
|00000790| 66 20 6e 6f 74 20 6e 65 | 65 64 65 64 2e 20 2a 2f |f not ne|eded. */|
|000007a0| 0d 09 2f 2a 20 63 61 6c | 6c 65 64 20 77 68 65 6e |../* cal|led when|
|000007b0| 20 74 68 65 20 65 78 74 | 65 72 6e 61 6c 20 6d 6f | the ext|ernal mo|
|000007c0| 64 75 6c 65 20 69 73 20 | 6c 69 6e 6b 65 64 20 74 |dule is |linked t|
|000007d0| 6f 20 70 72 6f 46 69 74 | 20 61 66 74 65 72 20 53 |o proFit| after S|
|000007e0| 65 74 55 70 20 77 61 73 | 20 63 61 6c 6c 65 64 20 |etUp was| called |
|000007f0| 2a 2f 0d 09 2f 2a 20 63 | 61 6e 20 62 65 20 75 73 |*/../* c|an be us|
|00000800| 65 64 20 74 6f 20 69 6e | 69 74 69 74 69 61 6c 69 |ed to in|ititiali|
|00000810| 7a 65 20 67 6c 6f 62 61 | 6c 20 76 61 72 69 61 62 |ze globa|l variab|
|00000820| 6c 65 73 2c 20 65 74 63 | 2e 20 2a 2f 0d 7b 0d 09 |les, etc|. */.{..|
|00000830| 09 69 66 20 28 21 53 70 | 65 65 63 68 41 76 61 69 |.if (!Sp|eechAvai|
|00000840| 6c 61 62 6c 65 28 29 29 | 0d 09 09 09 7b 09 53 79 |lable())|....{.Sy|
|00000850| 73 42 65 65 70 28 30 29 | 3b 0d 09 09 09 09 57 72 |sBeep(0)|;.....Wr|
|00000860| 69 74 65 6c 6e 28 22 5c | 70 22 29 3b 0d 09 09 09 |iteln("\|p");....|
|00000870| 09 57 72 69 74 65 6c 6e | 28 22 5c 70 54 68 69 73 |.Writeln|("\pThis|
|00000880| 20 6d 6f 64 75 6c 65 20 | 72 65 71 75 69 72 65 73 | module |requires|
|00000890| 20 74 68 65 20 73 70 65 | 65 63 68 20 6d 61 6e 61 | the spe|ech mana|
|000008a0| 67 65 72 20 65 78 74 65 | 6e 73 69 6f 6e 2e 22 29 |ger exte|nsion.")|
|000008b0| 3b 0d 09 09 09 7d 0d 09 | 09 65 6c 73 65 0d 09 09 |;....}..|.else...|
|000008c0| 09 53 70 65 61 6b 53 74 | 72 69 6e 67 28 22 5c 70 |.SpeakSt|ring("\p|
|000008d0| 48 69 2c 20 6d 79 20 6a | 6f 62 20 69 73 20 72 65 |Hi, my j|ob is re|
|000008e0| 61 64 69 6e 67 20 6e 75 | 6d 62 65 72 73 2e 20 4d |ading nu|mbers. M|
|000008f0| 61 6b 65 20 61 20 73 65 | 6c 65 63 74 69 6f 6e 20 |ake a se|lection |
|00000900| 69 6e 20 74 68 65 20 64 | 61 74 61 20 77 69 6e 64 |in the d|ata wind|
|00000910| 6f 77 20 61 6e 64 20 63 | 68 6f 6f 73 65 20 6d 79 |ow and c|hoose my|
|00000920| 20 6e 61 6d 65 20 66 72 | 6f 6d 20 74 68 65 20 6d | name fr|om the m|
|00000930| 65 6e 75 20 6d 69 73 6b | 2e 22 29 3b 0d 0d 7d 0d |enu misk|.");..}.|
|00000940| 0d 76 6f 69 64 20 52 75 | 6e 28 45 78 74 4d 6f 64 |.void Ru|n(ExtMod|
|00000950| 75 6c 65 73 50 61 72 61 | 6d 42 6c 6f 63 6b 2a 20 |ulesPara|mBlock* |
|00000960| 70 62 29 0d 2f 2a 20 70 | 72 6f 20 46 69 74 20 63 |pb)./* p|ro Fit c|
|00000970| 61 6c 6c 73 20 74 68 69 | 73 20 66 75 6e 63 74 69 |alls thi|s functi|
|00000980| 6f 6e 20 77 68 65 6e 20 | 74 68 65 20 6e 61 6d 65 |on when |the name|
|00000990| 20 6f 66 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 | of the |program |
|000009a0| 69 73 20 63 68 6f 73 65 | 6e 20 66 72 6f 6d 20 74 |is chose|n from t|
|000009b0| 68 65 20 2a 2f 0d 2f 2a | 20 52 75 6e 20 50 72 6f |he */./*| Run Pro|
|000009c0| 67 72 61 6d 20 73 75 62 | 6d 65 6e 75 20 69 6e 20 |gram sub|menu in |
|000009d0| 74 68 65 20 6d 65 6e 75 | 20 43 61 6c 63 20 2a 2f |the menu| Calc */|
|000009e0| 0d 7b 09 0d 09 69 66 20 | 28 21 53 70 65 65 63 68 |.{...if |(!Speech|
|000009f0| 41 76 61 69 6c 61 62 6c | 65 28 29 29 0d 09 09 09 |Availabl|e())....|
|00000a00| 7b 09 53 79 73 42 65 65 | 70 28 30 29 3b 0d 09 09 |{.SysBee|p(0);...|
|00000a10| 09 09 57 72 69 74 65 6c | 6e 28 22 5c 70 22 29 3b |..Writel|n("\p");|
|00000a20| 0d 09 09 09 09 57 72 69 | 74 65 6c 6e 28 22 5c 70 |.....Wri|teln("\p|
|00000a30| 54 68 69 73 20 6d 6f 64 | 75 6c 65 20 72 65 71 75 |This mod|ule requ|
|00000a40| 69 72 65 73 20 74 68 65 | 20 73 70 65 65 63 68 20 |ires the| speech |
|00000a50| 6d 61 6e 61 67 65 72 20 | 65 78 74 65 6e 73 69 6f |manager |extensio|
|00000a60| 6e 2e 22 29 3b 0d 09 09 | 09 7d 0d 09 65 6c 73 65 |n.");...|.}..else|
|00000a70| 0d 09 7b 09 73 68 6f 72 | 74 09 64 65 63 73 20 3d |..{.shor|t.decs =|
|00000a80| 20 35 3b 0d 09 09 52 65 | 63 74 09 73 65 6c 20 3d | 5;...Re|ct.sel =|
|00000a90| 20 47 65 74 53 65 6c 65 | 63 74 69 6f 6e 28 29 3b | GetSele|ction();|
|00000aa0| 0d 09 09 4f 53 45 72 72 | 09 65 72 72 79 3b 0d 09 |...OSErr|.erry;..|
|00000ab0| 09 6c 6f 6e 67 09 69 2c | 20 6a 3b 0d 09 09 53 74 |.long.i,| j;...St|
|00000ac0| 72 32 35 35 09 73 74 6f | 70 6d 65 73 73 61 67 65 |r255.sto|pmessage|
|00000ad0| 3b 0d 09 09 53 74 72 32 | 35 35 09 65 6d 70 74 79 |;...Str2|55.empty|
|00000ae0| 6d 65 73 73 61 67 65 3b | 0d 09 09 53 74 72 32 35 |message;|...Str25|
|00000af0| 35 09 6d 69 6e 75 73 3b | 0d 09 09 53 74 72 32 35 |5.minus;|...Str25|
|00000b00| 35 09 73 3b 0d 09 09 63 | 68 61 72 09 63 73 5b 32 |5.s;...c|har.cs[2|
|00000b10| 35 36 5d 3b 0d 09 09 63 | 68 61 72 2a 09 70 6f 73 |56];...c|har*.pos|
|00000b20| 31 3b 0d 09 09 63 68 61 | 72 2a 09 70 6f 73 32 3b |1;...cha|r*.pos2;|
|00000b30| 0d 09 09 63 68 61 72 2a | 09 6b 3b 0d 09 09 69 6e |...char*|.k;...in|
|00000b40| 74 09 09 6c 65 6e 3b 0d | 09 09 0d 09 09 53 65 74 |t..len;.|.....Set|
|00000b50| 50 61 73 63 61 6c 53 74 | 72 28 65 6d 70 74 79 6d |PascalSt|r(emptym|
|00000b60| 65 73 73 61 67 65 2c 22 | 5c 70 45 6d 70 74 79 2e |essage,"|\pEmpty.|
|00000b70| 22 2c 32 35 35 29 3b 0d | 09 09 53 65 74 50 61 73 |",255);.|..SetPas|
|00000b80| 63 61 6c 53 74 72 28 73 | 74 6f 70 6d 65 73 73 61 |calStr(s|topmessa|
|00000b90| 67 65 2c 22 5c 70 4f 68 | 6f 21 20 49 20 77 61 73 |ge,"\pOh|o! I was|
|00000ba0| 20 69 6e 74 65 72 72 75 | 70 74 65 64 21 22 2c 32 | interru|pted!",2|
|00000bb0| 35 35 29 3b 0d 09 09 53 | 65 74 50 61 73 63 61 6c |55);...S|etPascal|
|00000bc0| 53 74 72 28 6d 69 6e 75 | 73 2c 22 5c 70 20 6d 69 |Str(minu|s,"\p mi|
|00000bd0| 6e 75 73 20 22 2c 32 35 | 35 29 3b 0d 09 09 66 6f |nus ",25|5);...fo|
|00000be0| 72 20 28 69 20 3d 20 73 | 65 6c 2e 74 6f 70 20 3b |r (i = s|el.top ;|
|00000bf0| 20 69 3c 3d 20 73 65 6c | 2e 62 6f 74 74 6f 6d 3b | i<= sel|.bottom;|
|00000c00| 69 2b 2b 29 0d 09 09 09 | 66 6f 72 20 28 6a 20 3d |i++)....|for (j =|
|00000c10| 20 73 65 6c 2e 6c 65 66 | 74 3b 20 6a 3c 3d 20 73 | sel.lef|t; j<= s|
|00000c20| 65 6c 2e 72 69 67 68 74 | 3b 20 6a 2b 2b 29 0d 09 |el.right|; j++)..|
|00000c30| 09 09 7b 09 47 65 74 43 | 65 6c 6c 28 73 2c 69 2c |..{.GetC|ell(s,i,|
|00000c40| 6a 29 3b 0d 09 09 09 09 | 69 66 20 28 73 5b 30 5d |j);.....|if (s[0]|
|00000c50| 3e 30 29 0d 09 09 09 09 | 7b 09 69 66 20 28 54 65 |>0).....|{.if (Te|
|00000c60| 73 74 44 61 74 61 28 69 | 2c 6a 29 20 26 26 20 47 |stData(i|,j) && G|
|00000c70| 65 74 44 61 74 61 28 69 | 2c 20 6a 29 3d 3d 30 2e |etData(i|, j)==0.|
|00000c80| 30 29 0d 09 09 09 09 09 | 09 53 65 74 50 61 73 63 |0)......|.SetPasc|
|00000c90| 61 6c 53 74 72 28 73 2c | 22 5c 70 7a 65 72 6f 22 |alStr(s,|"\pzero"|
|00000ca0| 2c 32 30 29 3b 0d 09 09 | 09 09 09 65 6c 73 65 20 |,20);...|...else |
|00000cb0| 69 66 20 28 54 65 73 74 | 44 61 74 61 28 69 2c 6a |if (Test|Data(i,j|
|00000cc0| 29 29 09 2f 2a 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |))./* th|e follow|
|00000cd0| 69 6e 67 20 69 73 20 6f | 6e 6c 79 20 6e 65 65 64 |ing is o|nly need|
|00000ce0| 65 64 20 69 66 20 77 65 | 20 72 65 61 64 20 6e 75 |ed if we| read nu|
|00000cf0| 6d 62 65 72 73 20 2a 2f | 0d 09 09 09 09 09 7b 0d |mbers */|......{.|
|00000d00| 09 09 09 09 09 09 70 6f | 73 31 20 3d 20 26 63 73 |......po|s1 = &cs|
|00000d10| 5b 30 5d 3b 0d 09 09 09 | 09 09 09 42 6c 6f 63 6b |[0];....|...Block|
|00000d20| 4d 6f 76 65 28 73 2b 31 | 2c 70 6f 73 31 2c 73 5b |Move(s+1|,pos1,s[|
|00000d30| 30 5d 29 3b 0d 09 09 09 | 09 09 09 63 73 5b 28 73 |0]);....|...cs[(s|
|00000d40| 5b 30 5d 29 2b 31 5d 20 | 3d 20 30 3b 09 2f 2a 20 |[0])+1] |= 0;./* |
|00000d50| 63 73 20 69 73 20 6e 6f | 77 20 61 20 43 20 73 74 |cs is no|w a C st|
|00000d60| 72 69 6e 67 2c 20 61 6e | 64 20 70 6f 73 31 20 70 |ring, an|d pos1 p|
|00000d70| 6f 69 6e 74 73 20 69 6e | 74 6f 20 69 74 2e 20 2a |oints in|to it. *|
|00000d80| 2f 0d 09 09 09 09 09 09 | 6c 65 6e 20 3d 20 73 5b |/.......|len = s[|
|00000d90| 30 5d 3b 0d 09 09 09 09 | 09 09 0d 09 09 09 09 09 |0];.....|........|
|00000da0| 09 73 5b 30 5d 20 3d 20 | 30 3b 09 09 09 2f 2a 20 |.s[0] = |0;.../* |
|00000db0| 73 20 77 69 6c 6c 20 6e | 6f 77 20 62 65 63 6f 6d |s will n|ow becom|
|00000dc0| 65 20 6f 75 72 20 64 65 | 73 74 69 6e 61 74 69 6f |e our de|stinatio|
|00000dd0| 6e 20 73 74 72 69 6e 67 | 20 2a 2f 0d 09 09 09 09 |n string| */.....|
|00000de0| 09 09 0d 09 09 09 09 09 | 09 70 6f 73 32 20 3d 20 |........|.pos2 = |
|00000df0| 73 74 72 63 68 72 28 70 | 6f 73 31 2c 20 27 2b 27 |strchr(p|os1, '+'|
|00000e00| 29 3b 09 09 2f 2f 20 74 | 61 6b 65 20 6f 75 74 20 |);..// t|ake out |
|00000e10| 61 20 66 69 72 73 74 20 | 27 2b 27 0d 09 09 09 09 |a first |'+'.....|
|00000e20| 09 09 69 66 20 28 28 6c | 6f 6e 67 29 70 6f 73 32 |..if ((l|ong)pos2|
|00000e30| 20 3e 20 30 29 0d 09 09 | 09 09 09 09 7b 0d 09 09 | > 0)...|....{...|
|00000e40| 09 09 09 09 09 2a 70 6f | 73 32 20 3d 20 27 20 27 |.....*po|s2 = ' '|
|00000e50| 3b 0d 09 09 09 09 09 09 | 09 70 6f 73 32 20 3d 20 |;.......|.pos2 = |
|00000e60| 73 74 72 63 68 72 28 70 | 6f 73 31 2c 20 27 2b 27 |strchr(p|os1, '+'|
|00000e70| 29 3b 09 2f 2f 20 74 61 | 6b 65 20 6f 75 74 20 61 |);.// ta|ke out a|
|00000e80| 20 73 65 63 6f 6e 64 20 | 27 2b 27 0d 09 09 09 09 | second |'+'.....|
|00000e90| 09 09 09 69 66 20 28 28 | 6c 6f 6e 67 29 70 6f 73 |...if ((|long)pos|
|00000ea0| 32 20 3e 20 30 29 0d 09 | 09 09 09 09 09 09 09 2a |2 > 0)..|.......*|
|00000eb0| 70 6f 73 32 20 3d 20 27 | 20 27 3b 0d 09 09 09 09 |pos2 = '| ';.....|
|00000ec0| 09 09 7d 0d 09 09 09 09 | 09 09 0d 09 09 09 09 09 |..}.....|........|
|00000ed0| 09 70 6f 73 32 20 3d 20 | 73 74 72 63 68 72 28 70 |.pos2 = |strchr(p|
|00000ee0| 6f 73 31 2c 20 27 2d 27 | 29 3b 09 09 2f 2f 20 72 |os1, '-'|);..// r|
|00000ef0| 65 70 6c 61 63 65 20 61 | 20 66 69 72 73 74 20 27 |eplace a| first '|
|00000f00| 2d 27 0d 09 09 09 09 09 | 09 69 66 20 28 28 6c 6f |-'......|.if ((lo|
|00000f10| 6e 67 29 70 6f 73 32 20 | 3e 20 30 29 0d 09 09 09 |ng)pos2 |> 0)....|
|00000f20| 09 09 09 7b 0d 09 09 09 | 09 09 09 09 42 6c 6f 63 |...{....|....Bloc|
|00000f30| 6b 4d 6f 76 65 28 70 6f | 73 31 2c 20 26 73 5b 73 |kMove(po|s1, &s[s|
|00000f40| 5b 30 5d 20 2b 20 31 5d | 2c 20 70 6f 73 32 20 2d |[0] + 1]|, pos2 -|
|00000f50| 20 70 6f 73 31 29 3b 0d | 09 09 09 09 09 09 09 73 | pos1);.|.......s|
|00000f60| 5b 30 5d 20 2b 3d 20 70 | 6f 73 32 20 2d 20 70 6f |[0] += p|os2 - po|
|00000f70| 73 31 3b 0d 09 09 09 09 | 09 09 09 42 6c 6f 63 6b |s1;.....|...Block|
|00000f80| 4d 6f 76 65 28 26 6d 69 | 6e 75 73 5b 31 5d 2c 20 |Move(&mi|nus[1], |
|00000f90| 26 73 5b 73 5b 30 5d 20 | 2b 20 31 5d 2c 20 6d 69 |&s[s[0] |+ 1], mi|
|00000fa0| 6e 75 73 5b 30 5d 29 3b | 0d 09 09 09 09 09 09 09 |nus[0]);|........|
|00000fb0| 73 5b 30 5d 20 2b 3d 20 | 6d 69 6e 75 73 5b 30 5d |s[0] += |minus[0]|
|00000fc0| 3b 0d 09 09 09 09 09 09 | 09 70 6f 73 31 20 3d 20 |;.......|.pos1 = |
|00000fd0| 70 6f 73 32 20 2b 20 31 | 3b 20 0d 09 09 09 09 09 |pos2 + 1|; ......|
|00000fe0| 09 09 70 6f 73 32 20 3d | 20 73 74 72 63 68 72 28 |..pos2 =| strchr(|
|00000ff0| 70 6f 73 31 2c 20 27 2d | 27 29 3b 09 2f 2f 20 72 |pos1, '-|');.// r|
|00001000| 65 70 6c 61 63 65 20 61 | 20 73 65 63 6f 6e 64 20 |eplace a| second |
|00001010| 27 2d 27 0d 09 09 09 09 | 09 09 09 69 66 20 28 28 |'-'.....|...if ((|
|00001020| 6c 6f 6e 67 29 70 6f 73 | 32 20 3e 20 30 29 0d 09 |long)pos|2 > 0)..|
|00001030| 09 09 09 09 09 09 7b 0d | 09 09 09 09 09 09 09 09 |......{.|........|
|00001040| 42 6c 6f 63 6b 4d 6f 76 | 65 28 70 6f 73 31 2c 20 |BlockMov|e(pos1, |
|00001050| 26 73 5b 73 5b 30 5d 20 | 2b 20 31 5d 2c 20 70 6f |&s[s[0] |+ 1], po|
|00001060| 73 32 20 2d 20 70 6f 73 | 31 29 3b 0d 09 09 09 09 |s2 - pos|1);.....|
|00001070| 09 09 09 09 73 5b 30 5d | 20 2b 3d 20 70 6f 73 32 |....s[0]| += pos2|
|00001080| 20 2d 20 70 6f 73 31 3b | 0d 09 09 09 09 09 09 09 | - pos1;|........|
|00001090| 09 42 6c 6f 63 6b 4d 6f | 76 65 28 26 6d 69 6e 75 |.BlockMo|ve(&minu|
|000010a0| 73 5b 31 5d 2c 20 26 73 | 5b 73 5b 30 5d 20 2b 20 |s[1], &s|[s[0] + |
|000010b0| 31 5d 2c 20 6d 69 6e 75 | 73 5b 30 5d 29 3b 0d 09 |1], minu|s[0]);..|
|000010c0| 09 09 09 09 09 09 09 73 | 5b 30 5d 20 2b 3d 20 6d |.......s|[0] += m|
|000010d0| 69 6e 75 73 5b 30 5d 3b | 0d 09 09 09 09 09 09 09 |inus[0];|........|
|000010e0| 09 70 6f 73 31 20 3d 20 | 70 6f 73 32 20 2b 20 31 |.pos1 = |pos2 + 1|
|000010f0| 3b 20 0d 09 09 09 09 09 | 09 09 7d 0d 09 09 09 09 |; ......|..}.....|
|00001100| 09 09 7d 0d 09 09 09 09 | 09 09 42 6c 6f 63 6b 4d |..}.....|..BlockM|
|00001110| 6f 76 65 28 70 6f 73 31 | 2c 20 26 73 5b 73 5b 30 |ove(pos1|, &s[s[0|
|00001120| 5d 20 2b 20 31 5d 2c 20 | 26 63 73 5b 30 5d 20 2d |] + 1], |&cs[0] -|
|00001130| 20 70 6f 73 31 20 2b 20 | 6c 65 6e 29 3b 0d 09 09 | pos1 + |len);...|
|00001140| 09 09 09 09 73 5b 30 5d | 20 2b 3d 20 26 63 73 5b |....s[0]| += &cs[|
|00001150| 30 5d 20 2d 20 70 6f 73 | 31 20 2b 20 6c 65 6e 3b |0] - pos|1 + len;|
|00001160| 0d 09 09 09 09 09 09 0d | 09 09 09 09 09 09 70 6f |........|......po|
|00001170| 73 31 20 3d 20 28 63 68 | 61 72 2a 29 26 73 5b 31 |s1 = (ch|ar*)&s[1|
|00001180| 5d 3b 20 73 5b 73 5b 30 | 5d 20 2b 20 31 5d 20 3d |]; s[s[0|] + 1] =|
|00001190| 20 30 3b 0d 09 09 09 09 | 09 09 70 6f 73 32 20 3d | 0;.....|..pos2 =|
|000011a0| 20 73 74 72 63 68 72 28 | 70 6f 73 31 2c 20 27 65 | strchr(|pos1, 'e|
|000011b0| 27 29 3b 09 09 2f 2f 20 | 62 72 65 61 6b 20 61 74 |');..// |break at|
|000011c0| 20 27 65 27 0d 09 09 09 | 09 09 09 69 66 20 28 28 | 'e'....|...if ((|
|000011d0| 6c 6f 6e 67 29 70 6f 73 | 32 20 3e 20 30 29 0d 09 |long)pos|2 > 0)..|
|000011e0| 09 09 09 09 09 7b 0d 09 | 09 09 09 09 09 09 66 6f |.....{..|......fo|
|000011f0| 72 20 28 6b 20 3d 20 28 | 63 68 61 72 2a 29 26 73 |r (k = (|char*)&s|
|00001200| 5b 30 5d 20 2b 20 73 5b | 30 5d 3b 20 6b 20 3e 20 |[0] + s[|0]; k > |
|00001210| 70 6f 73 32 3b 20 6b 2d | 2d 29 0d 09 09 09 09 09 |pos2; k-|-)......|
|00001220| 09 09 09 2a 28 6b 2b 32 | 29 20 3d 20 2a 6b 3b 0d |...*(k+2|) = *k;.|
|00001230| 09 09 09 09 09 09 09 73 | 5b 30 5d 20 2b 3d 20 32 |.......s|[0] += 2|
|00001240| 3b 0d 09 09 09 09 09 09 | 09 2a 70 6f 73 32 2b 2b |;.......|.*pos2++|
|00001250| 20 3d 20 27 3b 27 3b 20 | 2a 70 6f 73 32 2b 2b 20 | = ';'; |*pos2++ |
|00001260| 3d 20 27 65 27 3b 20 2a | 70 6f 73 32 2b 2b 20 3d |= 'e'; *|pos2++ =|
|00001270| 20 27 3b 27 3b 0d 09 09 | 09 09 09 09 7d 0d 09 09 | ';';...|....}...|
|00001280| 09 09 09 09 7b 09 73 68 | 6f 72 74 20 6e 2c 6d 3d |....{.sh|ort n,m=|
|00001290| 31 3b 09 2f 2a 20 74 68 | 69 73 20 62 6c 6f 63 6b |1;./* th|is block|
|000012a0| 20 74 61 6b 65 73 20 63 | 61 72 65 20 6f 66 20 74 | takes c|are of t|
|000012b0| 61 6b 69 6e 67 20 61 77 | 61 79 20 75 6e 6e 65 63 |aking aw|ay unnec|
|000012c0| 65 73 73 61 72 79 20 7a | 65 72 6f 73 20 2a 2f 0d |essary z|eros */.|
|000012d0| 09 09 09 09 09 09 09 77 | 68 69 6c 65 20 28 6d 3c |.......w|hile (m<|
|000012e0| 73 5b 30 5d 20 26 26 20 | 73 5b 6d 5d 21 3d 27 2e |s[0] && |s[m]!='.|
|000012f0| 27 29 20 6d 2b 2b 3b 0d | 09 09 09 09 09 09 09 69 |') m++;.|.......i|
|00001300| 66 20 28 6d 3c 73 5b 30 | 5d 29 09 2f 2a 20 69 66 |f (m<s[0|])./* if|
|00001310| 20 61 20 64 65 63 69 6d | 61 6c 20 70 6f 69 6e 74 | a decim|al point|
|00001320| 20 77 61 73 20 66 6f 75 | 6e 64 20 2a 2f 0d 09 09 | was fou|nd */...|
|00001330| 09 09 09 09 09 7b 09 6e | 3d 6d 3b 0d 09 09 09 09 |.....{.n|=m;.....|
|00001340| 09 09 09 09 6d 2b 2b 3b | 0d 09 09 09 09 09 09 09 |....m++;|........|
|00001350| 09 77 68 69 6c 65 20 28 | 6d 3c 73 5b 30 5d 20 26 |.while (|m<s[0] &|
|00001360| 26 20 73 5b 6d 5d 3e 3d | 27 30 27 20 26 26 20 73 |& s[m]>=|'0' && s|
|00001370| 5b 6d 5d 3c 3d 27 39 27 | 29 20 6d 2b 2b 3b 20 2f |[m]<='9'|) m++; /|
|00001380| 2a 20 67 6f 20 74 6f 20 | 74 68 65 20 65 6e 64 20 |* go to |the end |
|00001390| 6f 66 20 74 68 65 20 6d | 61 6e 74 69 73 73 61 20 |of the m|antissa |
|000013a0| 2a 2f 0d 09 09 09 09 09 | 09 09 09 69 66 20 28 6d |*/......|...if (m|
|000013b0| 3c 73 5b 30 5d 29 20 6d | 2d 2d 3b 0d 09 09 09 09 |<s[0]) m|--;.....|
|000013c0| 09 09 09 09 77 68 69 6c | 65 20 28 6d 3e 6e 20 26 |....whil|e (m>n &|
|000013d0| 26 20 73 5b 6d 5d 3d 3d | 27 30 27 29 20 73 5b 6d |& s[m]==|'0') s[m|
|000013e0| 2d 2d 5d 3d 27 20 27 3b | 20 2f 2a 20 73 75 62 73 |--]=' ';| /* subs|
|000013f0| 74 69 74 75 65 20 75 6e | 6e 65 63 65 73 73 61 72 |titue un|necessar|
|00001400| 79 20 7a 65 72 6f 73 20 | 77 69 74 68 20 61 20 73 |y zeros |with a s|
|00001410| 70 61 63 65 20 2a 2f 0d | 09 09 09 09 09 09 09 09 |pace */.|........|
|00001420| 69 66 20 28 73 5b 6d 5d | 3d 3d 27 2e 27 29 20 73 |if (s[m]|=='.') s|
|00001430| 5b 6d 5d 3d 27 20 27 3b | 09 2f 2a 20 6b 69 6c 6c |[m]=' ';|./* kill|
|00001440| 20 74 68 65 20 64 65 63 | 69 6d 61 6c 20 70 6f 69 | the dec|imal poi|
|00001450| 6e 74 20 69 66 20 69 74 | 20 69 73 20 74 68 65 20 |nt if it| is the |
|00001460| 6f 6e 6c 79 20 74 68 69 | 6e 67 20 6c 65 66 74 20 |only thi|ng left |
|00001470| 2a 2f 0d 09 09 09 09 09 | 09 09 7d 0d 09 09 09 09 |*/......|..}.....|
|00001480| 09 09 7d 0d 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |..}.....|.}......|
|00001490| 65 72 72 79 20 3d 20 53 | 70 65 61 6b 53 74 72 69 |erry = S|peakStri|
|000014a0| 6e 67 28 73 29 3b 0d 09 | 09 09 09 7d 0d 09 09 09 |ng(s);..|...}....|
|000014b0| 09 65 6c 73 65 0d 09 09 | 09 09 09 65 72 72 79 20 |.else...|...erry |
|000014c0| 3d 20 53 70 65 61 6b 53 | 74 72 69 6e 67 28 65 6d |= SpeakS|tring(em|
|000014d0| 70 74 79 6d 65 73 73 61 | 67 65 29 3b 0d 0d 09 09 |ptymessa|ge);....|
|000014e0| 09 09 69 66 20 28 65 72 | 72 79 29 20 7b 53 79 73 |..if (er|ry) {Sys|
|000014f0| 42 65 65 70 28 30 29 3b | 72 65 74 75 72 6e 3b 7d |Beep(0);|return;}|
|00001500| 0d 09 09 09 09 0d 09 09 | 09 09 77 68 69 6c 65 09 |........|..while.|
|00001510| 28 53 70 65 65 63 68 42 | 75 73 79 28 29 29 20 65 |(SpeechB|usy()) e|
|00001520| 72 72 79 3d 54 65 73 74 | 53 74 6f 70 28 29 3b 0d |rry=Test|Stop();.|
|00001530| 09 09 09 09 0d 09 09 09 | 09 69 66 20 28 65 72 72 |........|.if (err|
|00001540| 79 29 20 0d 09 09 09 09 | 7b 09 77 68 69 6c 65 09 |y) .....|{.while.|
|00001550| 28 53 70 65 65 63 68 42 | 75 73 79 28 29 20 26 26 |(SpeechB|usy() &&|
|00001560| 20 21 42 75 74 74 6f 6e | 28 29 29 7b 7d 3b 0d 09 | !Button|()){};..|
|00001570| 09 09 09 09 65 72 72 79 | 20 3d 20 53 70 65 61 6b |....erry| = Speak|
|00001580| 53 74 72 69 6e 67 20 28 | 73 74 6f 70 6d 65 73 73 |String (|stopmess|
|00001590| 61 67 65 29 3b 0d 09 09 | 09 09 09 72 65 74 75 72 |age);...|...retur|
|000015a0| 6e 3b 0d 09 09 09 09 7d | 0d 09 09 09 7d 2f 2a 20 |n;.....}|....}/* |
|000015b0| 66 6f 72 20 69 2c 20 66 | 6f 72 20 79 20 2a 2f 0d |for i, f|or y */.|
|000015c0| 09 7d 20 2f 2a 65 6c 73 | 65 2a 2f 0d 0d 7d 0d 0d |.} /*els|e*/..}..|
|000015d0| 76 6f 69 64 20 43 6c 65 | 61 6e 55 70 20 28 45 78 |void Cle|anUp (Ex|
|000015e0| 74 4d 6f 64 75 6c 65 73 | 50 61 72 61 6d 42 6c 6f |tModules|ParamBlo|
|000015f0| 63 6b 2a 20 70 62 29 0d | 09 2f 2a 20 63 61 6c 6c |ck* pb).|./* call|
|00001600| 65 64 20 77 68 65 6e 20 | 74 68 65 20 66 75 6e 63 |ed when |the func|
|00001610| 74 69 6f 6e 20 6f 72 20 | 70 72 6f 67 72 61 6d 20 |tion or |program |
|00001620| 69 73 20 72 65 6d 6f 76 | 65 64 20 66 72 6f 6d 20 |is remov|ed from |
|00001630| 70 72 6f 20 46 69 74 27 | 73 20 6d 65 6e 75 73 20 |pro Fit'|s menus |
|00001640| 2a 2f 0d 09 2f 2a 20 69 | 6e 20 6d 6f 73 74 20 63 |*/../* i|n most c|
|00001650| 61 73 65 73 2c 20 74 68 | 69 73 20 66 75 6e 63 74 |ases, th|is funct|
|00001660| 69 6f 6e 20 63 61 6e 20 | 62 65 20 65 6d 70 74 79 |ion can |be empty|
|00001670| 20 2a 2f 0d 7b 0d 09 09 | 69 66 20 28 53 70 65 65 | */.{...|if (Spee|
|00001680| 63 68 41 76 61 69 6c 61 | 62 6c 65 28 29 29 0d 09 |chAvaila|ble())..|
|00001690| 09 09 53 70 65 61 6b 53 | 74 72 69 6e 67 28 22 5c |..SpeakS|tring("\|
|000016a0| 70 47 6f 6f 64 62 79 65 | 2e 20 49 74 20 68 61 73 |pGoodbye|. It has|
|000016b0| 20 62 65 65 6e 20 61 20 | 70 6c 65 61 73 75 72 65 | been a |pleasure|
|000016c0| 20 74 6f 20 77 6f 72 6b | 20 66 6f 72 20 79 6f 75 | to work| for you|
|000016d0| 2e 22 29 3b 0d 0d 7d 0d | 0d 0d 0d 0d 0d 0d 0d 0d |.");..}.|........|
|000016e0| 0d 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |./******|********|
|000016f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0d 09 09 09 09 09 |********|*/......|
|00001740| 09 2f 2a 20 66 6f 72 20 | 66 75 6e 63 74 69 6f 6e |./* for |function|
|00001750| 73 2c 20 6e 6f 74 20 75 | 73 65 64 20 68 65 72 65 |s, not u|sed here|
|00001760| 3a 20 2a 2f 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |: */./**|********|
|00001770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|000017c0| 76 6f 69 64 20 49 6e 69 | 74 69 61 6c 69 7a 65 46 |void Ini|tializeF|
|000017d0| 75 6e 63 20 28 42 6f 6f | 6c 65 61 6e 2a 20 63 6f |unc (Boo|lean* co|
|000017e0| 6e 73 74 20 68 61 73 44 | 65 72 69 76 61 74 69 76 |nst hasD|erivativ|
|000017f0| 65 73 2c 20 53 74 72 32 | 35 35 20 64 65 73 63 72 |es, Str2|55 descr|
|00001800| 31 73 74 4c 69 6e 65 2c | 20 53 74 72 32 35 35 20 |1stLine,| Str255 |
|00001810| 64 65 73 63 72 32 6e 64 | 4c 69 6e 65 2c 09 09 0d |descr2nd|Line,...|
|00001820| 09 09 09 09 09 73 68 6f | 72 74 2a 20 63 6f 6e 73 |.....sho|rt* cons|
|00001830| 74 20 6e 75 6d 62 65 72 | 4f 66 50 61 72 61 6d 73 |t number|OfParams|
|00001840| 2c 20 44 65 66 61 75 6c | 74 50 61 72 61 6d 49 6e |, Defaul|tParamIn|
|00001850| 66 6f 2a 20 63 6f 6e 73 | 74 20 61 30 2c 20 45 78 |fo* cons|t a0, Ex|
|00001860| 74 4d 6f 64 75 6c 65 73 | 50 61 72 61 6d 42 6c 6f |tModules|ParamBlo|
|00001870| 63 6b 2a 20 70 62 29 0d | 7b 7d 0d 76 6f 69 64 20 |ck* pb).|{}.void |
|00001880| 46 75 6e 63 20 28 09 64 | 6f 75 62 6c 65 20 78 2c |Func (.d|ouble x,|
|00001890| 20 50 61 72 61 6d 41 72 | 72 61 79 20 61 2c 09 64 | ParamAr|ray a,.d|
|000018a0| 6f 75 62 6c 65 2a 20 63 | 6f 6e 73 74 20 79 2c 20 |ouble* c|onst y, |
|000018b0| 45 78 74 4d 6f 64 75 6c | 65 73 50 61 72 61 6d 42 |ExtModul|esParamB|
|000018c0| 6c 6f 63 6b 2a 20 70 62 | 29 09 09 0d 7b 7d 0d 76 |lock* pb|)...{}.v|
|000018d0| 6f 69 64 20 44 65 72 69 | 76 61 74 69 76 65 73 28 |oid Deri|vatives(|
|000018e0| 64 6f 75 62 6c 65 20 78 | 2c 20 50 61 72 61 6d 41 |double x|, ParamA|
|000018f0| 72 72 61 79 20 61 2c 20 | 50 61 72 61 6d 41 72 72 |rray a, |ParamArr|
|00001900| 61 79 20 64 79 64 61 2c | 20 45 78 74 4d 6f 64 75 |ay dyda,| ExtModu|
|00001910| 6c 65 73 50 61 72 61 6d | 42 6c 6f 63 6b 2a 20 70 |lesParam|Block* p|
|00001920| 62 29 0d 7b 7d 0d 73 68 | 6f 72 74 20 43 68 65 63 |b).{}.sh|ort Chec|
|00001930| 6b 28 73 68 6f 72 74 20 | 70 61 72 61 6d 4e 6f 2c |k(short |paramNo,|
|00001940| 20 44 65 66 61 75 6c 74 | 50 61 72 61 6d 49 6e 66 | Default|ParamInf|
|00001950| 6f 2a 20 63 6f 6e 73 74 | 20 61 30 2c 20 45 78 74 |o* const| a0, Ext|
|00001960| 4d 6f 64 75 6c 65 73 50 | 61 72 61 6d 42 6c 6f 63 |ModulesP|aramBloc|
|00001970| 6b 2a 20 70 62 29 0d 7b | 72 65 74 75 72 6e 20 6f |k* pb).{|return o|
|00001980| 6b 3b 7d 0d 76 6f 69 64 | 20 46 69 72 73 74 20 28 |k;}.void| First (|
|00001990| 50 61 72 61 6d 41 72 72 | 61 79 20 61 2c 20 45 78 |ParamArr|ay a, Ex|
|000019a0| 74 4d 6f 64 75 6c 65 73 | 50 61 72 61 6d 42 6c 6f |tModules|ParamBlo|
|000019b0| 63 6b 2a 20 70 62 29 0d | 7b 7d 0d 76 6f 69 64 20 |ck* pb).|{}.void |
|000019c0| 4c 61 73 74 20 28 45 78 | 74 4d 6f 64 75 6c 65 73 |Last (Ex|tModules|
|000019d0| 50 61 72 61 6d 42 6c 6f | 63 6b 2a 20 70 62 29 0d |ParamBlo|ck* pb).|
|000019e0| 7b 7d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |{}......|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00001a10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a30| 0f 72 65 61 64 53 65 6c | 65 63 74 69 6f 6e 2e 63 |.readSel|ection.c|
|00001a40| 02 00 00 00 54 45 58 54 | 4b 41 48 4c 01 00 00 50 |....TEXT|KAHL...P|
|00001a50| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 50 00 c0 |..TEXTKA|HL...P..|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 ad d5 e9 88 00 00 | 19 62 00 00 01 9a 20 20 |........|.b....  |
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001aa0| 20 20 20 20 20 20 20 20 | 09 20 20 20 20 20 20 20 |        |.       |
|00001ab0| 2a 2f 0d 2f 2a 20 20 20 | 20 20 20 20 20 20 20 20 |*/./*   |        |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b20| 00 00 00 00 00 00 00 03 | 00 04 00 57 00 03 03 38 |........|...W...8|
|00001b30| 02 59 00 57 00 03 03 38 | 02 59 ad d6 0d 37 00 00 |.Y.W...8|.Y...7..|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 04 |........|........|
|00001b50| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00001b60| 00 00 00 46 02 32 ee 70 | 24 5c 00 00 00 1c 00 46 |...F.2.p|$\.....F|
|00001b70| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00001b80| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00001b90| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00001ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+